" Title "

"
    OutInd = IndInd = InBody = 0
}

# comment start
$0 ~ /^\/\*[ \t]*$/ {
    inComment = 1
    next
}

$0 ~ /^\*\/[ \t]*$/ {
    inComment = 0
    next
}

# commented-out line
inComment {
    next
}

# commented-out line or directive
$0 ~ /^#/ {
    if ($1 == "#index")
	indexPosition = OutInd
    next
}

# A directory name; start of a directory index
NF == 1 && $1 ~ "/$" {
    InBody = 1	# No longer in global preamble
    ArchDir = $1
    # Leave the / attached in the name since we know it's a directory name
    # if we want to go to it, and it might have the same name as a file.
    OutLines[++OutInd] = \
    sprintf("
%s",$1,ftpHost,$1,$1)
    IndexLinks[++IndInd] = $1
    # No longer in preamble
    InArchDesc = 1
    FirstDescLine = 1
    FS = "[ \t]+"
    HeaderNext = 1
    next
}

# In the per-directory archive description section.
InArchDesc {
    if (!NF) {
	InArchDesc = 0
	OutInd++
	next
    }
    # Attach the first sentence of the description to the directory index
    if (FirstDescLine) {
	line = $0
	gsub("^[ \t]+|[ \t]+$","",line)	# discard leading/trailing whitespace
	# Get rid of everything after first period followed by whitespace
	if (!sub(/\.[ \t].*/,"",line))
	    # if that doesn't exist, remove trailing period, if any
	    sub(/\.$/,"",line)
	if (line != "")
	    IndexDesc[IndInd] = line
	FirstDescLine = 0
    }
    line = $0
    count = 0
    # Make references to directories be links to the appropriate section of
    # the output document
    while (match(line,"(^| )[^ ]+/( |$)") && ++count < 40) {
	lastC = RSTART+RLENGTH-1
	if (substr(line,RSTART,1) == " ") {
	    RSTART++
	    RLENGTH--
	}
	if (substr(line,lastC,1) == " ")
	    RLENGTH--
	word = substr(line,RSTART,RLENGTH)
	sub(/^\.\//,ArchDir,word)
	word = "" word ""
	line = InsertStr(DelStr(line,RSTART,RLENGTH),RSTART,word)
    }
    OutLines[++OutInd] = line
    next
}

# A blank or header line, or a non-description line in the preamble
HeaderNext || !NF || !InBody && NF != 2 {
    if (NF)
	HeaderNext = 0
    OutLines[++OutInd] = $0
    next
}

# A description line
{
    PrintDesc(InBody)
}

END {
    if (ERR != "")
	exit ERR
    # Only bother with the directory index if there is more than one directory
    if (!indexPosition && IndInd > 1)
	PrintDirectoryIndex()
    if (IndInd <= 1)
	indexPosition = 0
    for (i = 1; i <= OutInd; i++) {
	print OutLines[i]
	if (i == indexPosition)
	    PrintDirectoryIndex()
    }
    print "